home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
gnu
/
nihcl-30.lha
/
nihcl-3.0
/
test
/
sets.v
< prev
next >
Wrap
Text File
|
1990-05-19
|
258b
|
30 lines
Test class Set
s = (1,1)
(1,3)
(1,2)
t = (1,1)
(1,3)
(1,2)
t =
s.includes(C): 1
t == s: 1
s.includes(C): 0
t == s: 0
s = (1,1)
(1,4)
(1,2)
t = (1,1)
(1,3)
(1,2)
s&t = (1,1)
(1,2)
s|t = (1,1)
(1,4)
(1,3)
(1,2)
s-t = (1,4)
s.asOrderedCltn: (1,1)
(1,4)
(1,2)